home *** CD-ROM | disk | FTP | other *** search
/ Chip 2005 February / CMCD0205.ISO / Software / Freeware / Multimedia / SubtitleWork / SubtitleWorkshop251.exe / PascalScripts / Insert subtitle (only in translation).pas < prev    next >
Pascal/Delphi Source File  |  2004-02-10  |  595b  |  33 lines
  1. // Insert subtitle (only in translation). Made by Bedazzle.
  2.  
  3. program InsertTransaSubs;
  4.  
  5. // -----------------------------------------------------------------------------
  6.  
  7. var
  8.   n: Integer;
  9.   i: Integer;
  10.   j: Integer;
  11.  
  12.   txt: String;
  13.  
  14. begin
  15.   n := GetSubtitleCount-1;
  16.  
  17.   for i := 0 to n do
  18.   begin
  19.      if (IsSubtitleSelected(i) = true) then
  20.      begin
  21.         for j := n downto i+1 do
  22.         begin
  23.            txt := GetSubtitleTrans(j-1);
  24.            SetSubtitleTrans(j, txt);
  25.         end;
  26.  
  27.         SetSubtitleTrans(i+1, '');
  28.  
  29.         break;
  30.      end;
  31.   end;
  32. end.
  33.